home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / seven.dxr / raven_13_Crow Eyes.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  1.2 KB  |  42 lines
  1. on exitFrame me
  2.   global gQTtoPlay, gNextMemberList
  3.   if (gQTtoPlay = EMPTY) and (gNextMemberList = EMPTY) then
  4.     whichEyes = "r"
  5.     if the mouseH < sprite(me.spriteNum).right then
  6.       whichEyes = "c"
  7.     end if
  8.     if the mouseH < sprite(me.spriteNum).left then
  9.       whichEyes = "l"
  10.     end if
  11.     put "d" into char 2 of whichEyes
  12.     if the mouseV < (20 + sprite(me.spriteNum).bottom) then
  13.       put "m" into char 2 of whichEyes
  14.     end if
  15.     if the mouseV < (sprite(me.spriteNum).top - 20) then
  16.       put "u" into char 2 of whichEyes
  17.     end if
  18.     case whichEyes of
  19.       "lu":
  20.         sprite(me.spriteNum).member = "crow_eyes.01"
  21.       "lm":
  22.         sprite(me.spriteNum).member = "crow_eyes.08"
  23.       "ld":
  24.         sprite(me.spriteNum).member = "crow_eyes.07"
  25.       "cu":
  26.         sprite(me.spriteNum).member = "crow_eyes.02"
  27.       "cm":
  28.         sprite(me.spriteNum).member = "crow_eyes.00"
  29.       "cd":
  30.         sprite(me.spriteNum).member = "crow_eyes.06"
  31.       "ru":
  32.         sprite(me.spriteNum).member = "crow_eyes.03"
  33.       "rm":
  34.         sprite(me.spriteNum).member = "crow_eyes.04"
  35.       "rd":
  36.         sprite(me.spriteNum).member = "crow_eyes.05"
  37.     end case
  38.   else
  39.     sprite(me.spriteNum).member = "empty"
  40.   end if
  41. end
  42.